home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / TOUR.PAS < prev   
Pascal/Delphi Source File  |  1996-08-19  |  2KB  |  52 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   EFLIB tour; main demonstration program for EFLIB
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBINI, EFLIBWIN, EFLIBSCR;
  10.  
  11.  
  12. const { Definitions of some user-defined window color tables }
  13.       WindowColor1 : WindowColorTableType = (Header : (Foreground : White; Background : Blue);
  14.                                              Border : (Foreground : Black; Background : Green);
  15.                                              Shadow : (Foreground : DarkGray; Background : Black);
  16.                                              CloseButton : (Foreground : LightGray; Background : Green);
  17.                                              Text : (Foreground : White; Background : Green);
  18.                                              Selected : (Foreground : Yellow; Background : Red));
  19.       WindowColor2 : WindowColorTableType = (Header : (Foreground : White; Background : Red);
  20.                                              Border : (Foreground : LightGray; Background : Red);
  21.                                              Shadow : (Foreground : DarkGray; Background : Black);
  22.                                              CloseButton : (Foreground : LightGray; Background : Red);
  23.                                              Text : (Foreground : Black; Background : Red);
  24.                                              Selected : (Foreground : Yellow; Background : Red));
  25.  
  26. var MainWindow   : WindowObjectType;
  27.     Information  : StatusBarObjectType;
  28.  
  29.  
  30. (* // UNDER CONSTRUCTION // *)
  31.  
  32.  
  33. begin
  34.      with MainWindow do begin
  35.           { Create main window }
  36.           Initialize; SetDefault;
  37.           SetCoordinates (1, 1, 80, 24); MaximizeTextCoordinates;
  38.           SetHeader ('EFLIB TOUR'); DisableKeep; DisableExplode;
  39.           DisableCloseButton; SetBorder (ThinBorder);
  40.           AssignColorTable (@WindowColor1); Draw;
  41.  
  42.           { Create information bar }
  43.           Information.Initialize ('@C@Welcome to EFLIB! This program will show you little of what the tool can do.');
  44.  
  45.           WriteLn ('');
  46.           WriteLn ('The Guided Tour.@C@');
  47.           ReadLn;
  48.  
  49.           Information.Intercept;
  50.           Intercept; { Main window }
  51.      end;
  52. end.